package com.hanwei.uap.common.util;

/**
 * 在线CRC校验工具 http://crccalc.com/
 * CRC16_CCITT：多项式x16+x12+x5+1（0x1021），初始值0x0000，低位在前，高位在后，结果与0x0000异或
 * CRC16_CCITT_FALSE：多项式x16+x12+x5+1（0x1021），初始值0xFFFF，低位在后，高位在前，结果与0x0000异或
 * CRC16_XMODEM：多项式x16+x12+x5+1（0x1021），初始值0x0000，低位在后，高位在前，结果与0x0000异或
 * CRC16_X25：多项式x16+x12+x5+1（0x1021），初始值0x0000，低位在前，高位在后，结果与0xFFFF异或
 * CRC16_MODBUS：多项式x16+x15+x2+1（0x8005），初始值0xFFFF，低位在前，高位在后，结果与0x0000异或
 * CRC16_IBM：多项式x16+x15+x2+1（0x8005），初始值0x0000，低位在前，高位在后，结果与0x0000异或
 * CRC16_MAXIM：多项式x16+x15+x2+1（0x8005），初始值0x0000，低位在前，高位在后，结果与0xFFFF异或
 * CRC16_USB：多项式x16+x15+x2+1（0x8005），初始值0xFFFF，低位在前，高位在后，结果与0xFFFF异或
 */
public class CRC16Util {
    /**
     * 循环冗余检验查表法:CRC-16/KERMIT TABLE
     */
    public static final int[] CRC16_KERMIT_TABLE = {0x0000, 0x1189, 0x2312, 0x329b, 0x4624, 0x57ad, 0x6536, 0x74bf,
            0x8c48, 0x9dc1, 0xaf5a, 0xbed3, 0xca6c, 0xdbe5, 0xe97e, 0xf8f7, 0x1081, 0x0108, 0x3393, 0x221a, 0x56a5,
            0x472c, 0x75b7, 0x643e, 0x9cc9, 0x8d40, 0xbfdb, 0xae52, 0xdaed, 0xcb64, 0xf9ff, 0xe876, 0x2102, 0x308b,
            0x0210, 0x1399, 0x6726, 0x76af, 0x4434, 0x55bd, 0xad4a, 0xbcc3, 0x8e58, 0x9fd1, 0xeb6e, 0xfae7, 0xc87c,
            0xd9f5, 0x3183, 0x200a, 0x1291, 0x0318, 0x77a7, 0x662e, 0x54b5, 0x453c, 0xbdcb, 0xac42, 0x9ed9, 0x8f50,
            0xfbef, 0xea66, 0xd8fd, 0xc974, 0x4204, 0x538d, 0x6116, 0x709f, 0x0420, 0x15a9, 0x2732, 0x36bb, 0xce4c,
            0xdfc5, 0xed5e, 0xfcd7, 0x8868, 0x99e1, 0xab7a, 0xbaf3, 0x5285, 0x430c, 0x7197, 0x601e, 0x14a1, 0x0528,
            0x37b3, 0x263a, 0xdecd, 0xcf44, 0xfddf, 0xec56, 0x98e9, 0x8960, 0xbbfb, 0xaa72, 0x6306, 0x728f, 0x4014,
            0x519d, 0x2522, 0x34ab, 0x0630, 0x17b9, 0xef4e, 0xfec7, 0xcc5c, 0xddd5, 0xa96a, 0xb8e3, 0x8a78, 0x9bf1,
            0x7387, 0x620e, 0x5095, 0x411c, 0x35a3, 0x242a, 0x16b1, 0x0738, 0xffcf, 0xee46, 0xdcdd, 0xcd54, 0xb9eb,
            0xa862, 0x9af9, 0x8b70, 0x8408, 0x9581, 0xa71a, 0xb693, 0xc22c, 0xd3a5, 0xe13e, 0xf0b7, 0x0840, 0x19c9,
            0x2b52, 0x3adb, 0x4e64, 0x5fed, 0x6d76, 0x7cff, 0x9489, 0x8500, 0xb79b, 0xa612, 0xd2ad, 0xc324, 0xf1bf,
            0xe036, 0x18c1, 0x0948, 0x3bd3, 0x2a5a, 0x5ee5, 0x4f6c, 0x7df7, 0x6c7e, 0xa50a, 0xb483, 0x8618, 0x9791,
            0xe32e, 0xf2a7, 0xc03c, 0xd1b5, 0x2942, 0x38cb, 0x0a50, 0x1bd9, 0x6f66, 0x7eef, 0x4c74, 0x5dfd, 0xb58b,
            0xa402, 0x9699, 0x8710, 0xf3af, 0xe226, 0xd0bd, 0xc134, 0x39c3, 0x284a, 0x1ad1, 0x0b58, 0x7fe7, 0x6e6e,
            0x5cf5, 0x4d7c, 0xc60c, 0xd785, 0xe51e, 0xf497, 0x8028, 0x91a1, 0xa33a, 0xb2b3, 0x4a44, 0x5bcd, 0x6956,
            0x78df, 0x0c60, 0x1de9, 0x2f72, 0x3efb, 0xd68d, 0xc704, 0xf59f, 0xe416, 0x90a9, 0x8120, 0xb3bb, 0xa232,
            0x5ac5, 0x4b4c, 0x79d7, 0x685e, 0x1ce1, 0x0d68, 0x3ff3, 0x2e7a, 0xe70e, 0xf687, 0xc41c, 0xd595, 0xa12a,
            0xb0a3, 0x8238, 0x93b1, 0x6b46, 0x7acf, 0x4854, 0x59dd, 0x2d62, 0x3ceb, 0x0e70, 0x1ff9, 0xf78f, 0xe606,
            0xd49d, 0xc514, 0xb1ab, 0xa022, 0x92b9, 0x8330, 0x7bc7, 0x6a4e, 0x58d5, 0x495c, 0x3de3, 0x2c6a, 0x1ef1,
            0x0f78};
    /**
     * 循环冗余检验查表法:CRC-16/XMODEM TABLE
     */
    public static final int[] CRC16_XMODEM_TABLE = {0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7,
            0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef, 0x1231, 0x0210, 0x3273, 0x2252, 0x52b5,
            0x4294, 0x72f7, 0x62d6, 0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de, 0x2462, 0x3443,
            0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485, 0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac,
            0xd58d, 0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4, 0xb75b, 0xa77a, 0x9719, 0x8738,
            0xf7df, 0xe7fe, 0xd79d, 0xc7bc, 0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823, 0xc9cc,
            0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b, 0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50,
            0x3a33, 0x2a12, 0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a, 0x6ca6, 0x7c87, 0x4ce4,
            0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41, 0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49,
            0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70, 0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b,
            0xaf3a, 0x9f59, 0x8f78, 0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f, 0x1080, 0x00a1,
            0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067, 0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f,
            0xf35e, 0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256, 0xb5ea, 0xa5cb, 0x95a8, 0x8589,
            0xf56e, 0xe54f, 0xd52c, 0xc50d, 0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405, 0xa7db,
            0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c, 0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676,
            0x4615, 0x5634, 0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab, 0x5844, 0x4865, 0x7806,
            0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3, 0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a,
            0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92, 0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa,
            0xad8b, 0x9de8, 0x8dc9, 0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1, 0xef1f, 0xff3e,
            0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8, 0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1,
            0x1ef0};
    /**
     * 循环冗余检验查表法:CRC-16/MODBUS TABLE
     */
    public static final int[] CRC16_MODBUS_TABLE = {0x0000, 0xC0C1, 0xC181, 0x0140, 0xC301, 0x03C0, 0x0280, 0xC241, 0xC601, 0x06C0, 0x0780,
            0xC741, 0x0500, 0xC5C1, 0xC481, 0x0440, 0xCC01, 0x0CC0, 0x0D80, 0xCD41, 0x0F00, 0xCFC1, 0xCE81, 0x0E40,
            0x0A00, 0xCAC1, 0xCB81, 0x0B40, 0xC901, 0x09C0, 0x0880, 0xC841, 0xD801, 0x18C0, 0x1980, 0xD941, 0x1B00,
            0xDBC1, 0xDA81, 0x1A40, 0x1E00, 0xDEC1, 0xDF81, 0x1F40, 0xDD01, 0x1DC0, 0x1C80, 0xDC41, 0x1400, 0xD4C1,
            0xD581, 0x1540, 0xD701, 0x17C0, 0x1680, 0xD641, 0xD201, 0x12C0, 0x1380, 0xD341, 0x1100, 0xD1C1, 0xD081,
            0x1040, 0xF001, 0x30C0, 0x3180, 0xF141, 0x3300, 0xF3C1, 0xF281, 0x3240, 0x3600, 0xF6C1, 0xF781, 0x3740,
            0xF501, 0x35C0, 0x3480, 0xF441, 0x3C00, 0xFCC1, 0xFD81, 0x3D40, 0xFF01, 0x3FC0, 0x3E80, 0xFE41, 0xFA01,
            0x3AC0, 0x3B80, 0xFB41, 0x3900, 0xF9C1, 0xF881, 0x3840, 0x2800, 0xE8C1, 0xE981, 0x2940, 0xEB01, 0x2BC0,
            0x2A80, 0xEA41, 0xEE01, 0x2EC0, 0x2F80, 0xEF41, 0x2D00, 0xEDC1, 0xEC81, 0x2C40, 0xE401, 0x24C0, 0x2580,
            0xE541, 0x2700, 0xE7C1, 0xE681, 0x2640, 0x2200, 0xE2C1, 0xE381, 0x2340, 0xE101, 0x21C0, 0x2080, 0xE041,
            0xA001, 0x60C0, 0x6180, 0xA141, 0x6300, 0xA3C1, 0xA281, 0x6240, 0x6600, 0xA6C1, 0xA781, 0x6740, 0xA501,
            0x65C0, 0x6480, 0xA441, 0x6C00, 0xACC1, 0xAD81, 0x6D40, 0xAF01, 0x6FC0, 0x6E80, 0xAE41, 0xAA01, 0x6AC0,
            0x6B80, 0xAB41, 0x6900, 0xA9C1, 0xA881, 0x6840, 0x7800, 0xB8C1, 0xB981, 0x7940, 0xBB01, 0x7BC0, 0x7A80,
            0xBA41, 0xBE01, 0x7EC0, 0x7F80, 0xBF41, 0x7D00, 0xBDC1, 0xBC81, 0x7C40, 0xB401, 0x74C0, 0x7580, 0xB541,
            0x7700, 0xB7C1, 0xB681, 0x7640, 0x7200, 0xB2C1, 0xB381, 0x7340, 0xB101, 0x71C0, 0x7080, 0xB041, 0x5000,
            0x90C1, 0x9181, 0x5140, 0x9301, 0x53C0, 0x5280, 0x9241, 0x9601, 0x56C0, 0x5780, 0x9741, 0x5500, 0x95C1,
            0x9481, 0x5440, 0x9C01, 0x5CC0, 0x5D80, 0x9D41, 0x5F00, 0x9FC1, 0x9E81, 0x5E40, 0x5A00, 0x9AC1, 0x9B81,
            0x5B40, 0x9901, 0x59C0, 0x5880, 0x9841, 0x8801, 0x48C0, 0x4980, 0x8941, 0x4B00, 0x8BC1, 0x8A81, 0x4A40,
            0x4E00, 0x8EC1, 0x8F81, 0x4F40, 0x8D01, 0x4DC0, 0x4C80, 0x8C41, 0x4400, 0x84C1, 0x8581, 0x4540, 0x8701,
            0x47C0, 0x4680, 0x8641, 0x8201, 0x42C0, 0x4380, 0x8341, 0x4100, 0x81C1, 0x8081, 0x4040};

    public static int crc16_kermit_table(byte[] data) {
        int crc = 0x0000;
        for (int i = 0; i < data.length; i++) {
            crc = CRC16_KERMIT_TABLE[(crc ^ data[i]) & 0xFF] ^ (crc >> 8);
        }
        return crc;
    }

    public static int crc16_xmodem_table(byte[] data) {
        char crc = 0;
        byte hb = 0;
        int j = 0;
        int index;
        int dataLen = data.length;
        while (dataLen-- != 0) {
            hb = (byte) (crc / 256); // 以8位二进制数的形式暂存CRC的高8位
            index = ((hb ^ data[j]) & 0xff); // 求得所查索引下标
            crc <<= 8; // 左移8位，相当于CRC乘以2的8次方
            crc ^= (CRC16_XMODEM_TABLE[index]); // 高8位和当前字节相加后再查表求CRC ，再加上以前的CRC
            j++;
        }
        return crc;
    }

    public static int crc16_modbus_table(byte[] data) {
        int dataLen = data.length;
        int crc = 0xffff;
        int index;
        int i = 0;
        while ((dataLen--) != 0) {
            index = ((crc) ^ (data[i])) & 0xff;
            crc = (crc >> 8) ^ CRC16_MODBUS_TABLE[index];
            i++;
        }
        crc &= 0xffff;
        return crc;
    }

    /**
     * 和crc16_ccitt_false的功能一样，只是算法不同
     *
     * @param buf
     * @param offset
     * @param len
     * @return
     */
    public static int crc16_ccitt_false1(byte[] buf, int offset, int len) {
        int start = offset;
        int end = offset + len;
        if (end > buf.length)
            end = buf.length;
        int crc = 0xffff; // initial value
        int polynomial = 0x1021;
        for (int index = start; index < end; index++) {
            byte b = buf[index];
            for (int i = 0; i < 8; i++) {
                boolean bit = ((b >> (7 - i) & 1) == 1);
                boolean c15 = ((crc >> 15 & 1) == 1);
                crc <<= 1;
                if (c15 ^ bit)
                    crc ^= polynomial;
            }
        }
        crc &= 0xffff;
        return crc;
    }

    public static int crc16_ccitt_false(byte[] bytes, int start, int len) {
        int crc = 0xFFFF;
        for (int j = 0; j < len && start + j < bytes.length; j++) {
            crc = ((crc >>> 8) | (crc << 8)) & 0xffff;
            crc ^= (bytes[start + j] & 0xff);// byte to int, trunc sign
            crc ^= ((crc & 0xff) >> 4);
            crc ^= (crc << 12) & 0xffff;
            crc ^= ((crc & 0xFF) << 5) & 0xffff;
        }
        crc &= 0xffff;
        return crc;
    }

    public static int crc16_ccitt_false(byte[] bytes, int len) {
        return crc16_ccitt_false(bytes, 0, len);
    }

    public static int crc16_ccitt_false(byte[] bytes) {
        return crc16_ccitt_false(bytes, bytes.length);
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static void put_crc16_ccitt_false(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_ccitt_false(bytes, start, len);
        if (reverse) {
            bytes[crcPos] = (byte) (crc & 0xff);
            bytes[crcPos + 1] = (byte) (crc >> 8 & 0xff);
        } else {
            bytes[crcPos] = (byte) (crc >> 8 & 0xff);
            bytes[crcPos + 1] = (byte) (crc & 0xff);
        }
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static boolean check_crc16_ccitt_false(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_ccitt_false(bytes, start, len);
        byte[] calCrc = new byte[2];
        calCrc[0] = (byte) (crc >> 8 & 0xff);
        calCrc[1] = (byte) (crc & 0xff);
        byte[] srcCrc = new byte[2];
        if (reverse) {
            srcCrc[0] = bytes[crcPos + 1];
            srcCrc[1] = bytes[crcPos];
        } else {
            srcCrc[0] = bytes[crcPos];
            srcCrc[1] = bytes[crcPos + 1];
        }
        return calCrc[0] == srcCrc[0] && calCrc[1] == srcCrc[1];
    }

    public static int crc16_xmodem(byte[] bytes, int start, int len) {
        int crc = 0x0000;
        int polynomial = 0x1021;
        for (int i = 0; i < len && start + i < bytes.length; i++) {
            for (int j = 0; j < 8; j++) {
                boolean bit = ((bytes[start + i] >> (7 - j) & 1) == 1);
                boolean c15 = ((crc >> 15 & 1) == 1);
                crc <<= 1;
                if (c15 ^ bit)
                    crc ^= polynomial;
            }
        }
        crc &= 0xffff;
        return crc;
    }

    public static int crc16_xmodem(byte[] bytes, int len) {
        return crc16_xmodem(bytes, 0, len);
    }

    public static int crc16_xmodem(byte[] bytes) {
        return crc16_xmodem(bytes, bytes.length);
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static void put_crc16_xmodem(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_xmodem(bytes, start, len);
        if (reverse) {
            bytes[crcPos] = (byte) (crc & 0xff);
            bytes[crcPos + 1] = (byte) (crc >> 8 & 0xff);
        } else {
            bytes[crcPos] = (byte) (crc >> 8 & 0xff);
            bytes[crcPos + 1] = (byte) (crc & 0xff);
        }
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static boolean check_crc16_xmodem(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_xmodem(bytes, start, len);
        byte[] calCrc = new byte[2];
        calCrc[0] = (byte) (crc >> 8 & 0xff);
        calCrc[1] = (byte) (crc & 0xff);
        byte[] srcCrc = new byte[2];
        if (reverse) {
            srcCrc[0] = bytes[crcPos + 1];
            srcCrc[1] = bytes[crcPos];
        } else {
            srcCrc[0] = bytes[crcPos];
            srcCrc[1] = bytes[crcPos + 1];
        }
        return calCrc[0] == srcCrc[0] && calCrc[1] == srcCrc[1];
    }

    public static int crc16_modbus(byte[] bytes, int start, int len) {
        int crc = 0xFFFF;
        for (int i = 0; i < len && start + i < bytes.length; i++) {
            int c = bytes[start + i] & 0x00FF;
            crc ^= c;
            for (int j = 0; j < 8; j++) {
                if ((crc & 0x0001) != 0) {
                    crc >>= 1;
                    crc ^= 0xA001;
                } else
                    crc >>= 1;
            }
        }
        return crc;
    }

    public static int crc16_modbus(byte[] bytes, int len) {
        return crc16_modbus(bytes, 0, len);
    }

    public static int crc16_modbus(byte[] bytes) {
        return crc16_modbus(bytes, bytes.length);
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static void put_crc16_modbus(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_modbus(bytes, start, len);
        if (reverse) {
            bytes[crcPos] = (byte) (crc & 0xff);
            bytes[crcPos + 1] = (byte) (crc >> 8 & 0xff);
        } else {
            bytes[crcPos] = (byte) (crc >> 8 & 0xff);
            bytes[crcPos + 1] = (byte) (crc & 0xff);
        }
    }

    /**
     * @param bytes
     * @param start
     * @param len
     * @param crcPos  crc码的位置
     * @param reverse true:小端模式, false:大端模式
     */
    public static boolean check_crc16_modbus(byte[] bytes, int start, int len, int crcPos, boolean reverse) {
        int crc = crc16_modbus(bytes, start, len);
        byte[] calCrc = new byte[2];
        calCrc[0] = (byte) (crc >> 8 & 0xff);
        calCrc[1] = (byte) (crc & 0xff);
        byte[] srcCrc = new byte[2];
        if (reverse) {
            srcCrc[0] = bytes[crcPos + 1];
            srcCrc[1] = bytes[crcPos];
        } else {
            srcCrc[0] = bytes[crcPos];
            srcCrc[1] = bytes[crcPos + 1];
        }
        return calCrc[0] == srcCrc[0] && calCrc[1] == srcCrc[1];
    }

    public static void main(String[] args) {
        String str = "abcdefgh";
        System.out.println(Integer.toHexString(crc16_kermit_table(str.getBytes())).toUpperCase());
        System.out.println(Integer.toHexString(crc16_xmodem_table(str.getBytes())).toUpperCase());
        System.out.println(Integer.toHexString(crc16_modbus_table(str.getBytes())).toUpperCase());
        System.out.println(Integer.toHexString(crc16_ccitt_false(str.getBytes())).toUpperCase());
        System.out.println(Integer.toHexString(crc16_ccitt_false1(str.getBytes(), 0, 8)).toUpperCase());
        System.out.println(Integer.toHexString(crc16_xmodem(str.getBytes())).toUpperCase());
        System.out.println(Integer.toHexString(crc16_modbus(str.getBytes())).toUpperCase());
    }
}
